#!/usr/bin/perl -w

$directory = '.';
opendir(DIR, $directory) || die $!;
while (my $file = readdir(DIR)) {

	if (($file eq '.') or ($file eq '..')) { next;}
	$newname = "$file";
	$newname =~ s/_//g;
	$newname =~ s/([\w']+)/\u\L$1/g;
	$newname =~ s/\.Png/\.png/g;
	if ($file ne $newname) {
	        print "$file :: $newname\n";
		system("mv $file $newname");
	}
    }
closedir(DIR);
